home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / editor / export.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-22  |  1KB  |  49 lines
  1. /* Export.rexx v1.0 -- Save current project with extra tags of interest  */
  2. /* to external programs.  © 1995 NewTek Inc. Written by Marty Flickinger */
  3.  
  4. call addlib('PROJECT_REXX_PORT',0)
  5.  
  6. call set_view(2)
  7.  
  8. projlen=croutonsinproject()
  9.  
  10. if projlen=0 then call quit
  11.  
  12. curspot=0
  13. do while (curspot<projlen)
  14.    call croutonpick(curspot)
  15.    if croutontype()="CLIP" then do
  16.       /* Mark tags to save w/project */
  17.       call croutonsavetag(RecFields)
  18.       call croutonsavetag(SMPTEtime)
  19.    end
  20.    curspot=curspot+1
  21. end
  22.  
  23. call req_error("Export V1.0     ---    Save current project with extra tags.")
  24.  
  25. rx startfilereq("Save Project Where?","toaster:projects","")
  26. exit=1
  27. do while exit=1
  28.   file=queryfilereq()
  29.   if file=0 then call quit
  30.   if file~="" then exit=0
  31.   address command "c:wait 1"
  32. end
  33.  
  34. doit=1
  35. if exists(file) then
  36.    if req_tell("Replace existing project?")=0 then doit=0
  37.  
  38. if doit=1 then do
  39.    call PROJECTSAVE(file)
  40. end
  41.  
  42. call remlib("PROJECT_REXX_PORT")
  43. exit
  44.  
  45. quit: PROCEDURE
  46.    call req_error("Canceled.")
  47.    call remlib('PROJECT_REXX_PORT')
  48.    exit
  49.